The Ultimate Frank Lloyd…ght - America's Architect/Ultimate Frank Lloyd Wright, The - America's Architect (1994)(Microsoft Home).iso/pre/flw/flwlt25.dir/00029_Script_29

Text File | 1994-11-15 | 6KB | 231 lines

on startMovie
  global inFrame, nowFrame, currMM
  global dialogOn, nextLT, prevLT
  cursor 4
  set the preLoadRAM to 420
  set prevLT = "FLWLT24"
  set nextLT = ""
  set dialogOn = FALSE
  set currMM = "FLWMM"
  set nowFrame = "ltfin955000°°°"
  set inFrame = ""
  puppetsprite 9, TRUE
  puppetSprite 11, TRUE
  puppetSprite 12, TRUE
  set the immediate of sprite 11 to TRUE
  set the immediate of sprite 12 to TRUE
  puppetSprite 20, TRUE
  puppetSprite 21, TRUE
  puppetSprite 22, TRUE
  puppetSprite 23, TRUE
  set the immediate of sprite 20 to TRUE
  set the immediate of sprite 23 to TRUE
end startMovie

on stepMovie
  global nowFrame,currFrame
  if nowFrame <> currFrame then
    seeAlsoList
    set currFrame = nowFrame
  end if
end stepMovie

on stopMovie
  put " " into field "seeAlsoText"
  set the castNum of sprite 21 to 1050
  puppetSprite 21, FALSE
  updateStage
end stopMovie

on saveLocals
  global lastFrame, nowFrame, lastMovie, origLocH
  set lastMovie = the movie
  set lastFrame = nowFrame
end saveLocals

on ltForStep
  global inFrame, nextLT, ltQT
  puppetSprite 4, FALSE
  set ltQT = FALSE
  set inFrame = ""
  if the frame = label (line (the number of lines in the labellist - 1) of the labellist) then
    --go to movie nextLT
    beep
  else
    go to marker (+1)
    updateStage
  end if
end ltForStep

on ltBackStep
  global inFrame, prevLT, ltQT
  puppetSprite 4, FALSE
  set ltQT = FALSE
  set inFrame = ""
  if the frame < 5 then
    go to frame "ltfin952005°°°" of movie prevLT
  else
    go to marker (-1)
    updateStage
  end if
end ltBackStep

on checkNav
  if rollover(12) then
    set the castNum of sprite 12 to the number of cast "leftUp"
  else
    set the castNum of sprite 12 to the number of cast "leftRt"
  end if

  if not(the frame > 17) then
    if rollover(11) then
      set the castNum of sprite 11 to the number of cast "rightUp"
    else
      set the castNum of sprite 11 to the number of cast "rightRt"
    end if
  else
    set the castNum of sprite 11 to the number of cast "rightRt"
  end if
  updateStage
  cursor -1
end checkNav

on buttonState
  global FrankNav, bflag, nowFrame, noTx, dialogOn

  if dialogOn = FALSE then

    --sticking local call here for convenience
    worldLite
    if the mouseV > 200 or bFlag = TRUE then
      set bFlag = FALSE
      doState
    end if
  end if
end buttonState

on scrollRight
  if the clickon = 11 then
    sound stop 1
    startTimer
    repeat while the timer < 2
      set the castNum of sprite 11 to the number of cast "rightDn"
      updateStage
    end repeat
    timeRight
    flush
  end if
end scrollRight

on scrollLeft
  if the clickon = 12 then
    sound stop 1
    startTimer
    repeat while the timer < 2
      set the castNum of sprite 12 to the number of cast "leftDn"
      updateStage
    end repeat
    timeLeft
    flush
  end if
end scrollLeft

on timeLeft
  global prevLt
  puppetSprite 4, FALSE
  if the frame < 15 then
    go to movie prevLT
  else
    go to frame "ltfin955000°°°"
  end if
end timeLeft

on timeRight
  global nextLt
  puppetSprite 4, FALSE
  if the frame < 15 then
    go to frame "ltdoa959000u°°"
  else
    beep
  end if
end timeRight

on worldLite
  if the frame < 15 then
    if rollover(9) then
      set the castNum of sprite 9 to 27
    else
      set the castNum of sprite 9 to 2
    end if
  end if
end worldLite

on jumpVLB25
  global dialogOn
  if dialogOn = FALSE then
    sound stop 1
    if the clickOn < 7 or the clickOn > 23 then
      if the mouseH > 168 and the mouseH < 271 and the mouseV > 137 and the mouseV < 225 then
        puppetSprite 4, FALSE
        go to frame "ltfin955001°°°"
      else if the mouseH > 266 and the mouseH < 376 and the mouseV > 75 and the mouseV < 149 then
        puppetSprite 4, FALSE
        go to frame "ltfin955002°°°"
      else if the mouseH > 299 and the mouseH < 429 and the mouseV > 164 and the mouseV < 225 then
        puppetSprite 4, FALSE
        go to frame "ltfin955003°°°"
      else if the mouseH > 427 and the mouseH < 539 and the mouseV > 75 and the mouseV < 161 then
        puppetSprite 4, FALSE
        go to frame "ltfin955004°°°"
        --        set the volume of sprite 15 to 255
      else if the mouseH > 542 and the mouseH < 618 and the mouseV > 125 and the mouseV < 225 then
        puppetSprite 4, FALSE
        go to frame "ltfin955005°°°"
      else
        nothing
      end if
    end if
  end if
  flush
end jumpVLB25

on rollVLB25
  if the mouseH > 168 and the mouseH < 271 and the mouseV > 137 and the mouseV < 225 then
    set the castNum of sprite 4 to 8
    if the mouseDown then
      set the castNum of sprite 4 to 3
    end if
  else if the mouseH > 266 and the mouseH < 376 and the mouseV > 75 and the mouseV < 149 then
    set the castNum of sprite 4 to 9
    if the mouseDown then
      set the castNum of sprite 4 to 3
    end if
  else if the mouseH > 299 and the mouseH < 429 and the mouseV > 164 and the mouseV < 225 then
    set the castNum of sprite 4 to 10
    if the mouseDown then
      set the castNum of sprite 4 to 3
    end if
  else if the mouseH > 427 and the mouseH < 539 and the mouseV > 75 and the mouseV < 161 then
    set the castNum of sprite 4 to 11
    if the mouseDown then
      set the castNum of sprite 4 to 3
    end if
  else if the mouseH > 542 and the mouseH < 618 and the mouseV > 125 and the mouseV < 225 then
    set the castNum of sprite 4 to 12
    if the mouseDown then
      set the castNum of sprite 4 to 3
    end if
  else
    set the castNum of sprite 4 to 3
  end if
  updateStage
end rollVLB25

on jumpVLB26
  if the mouseH > 394 and the mouseH < 719 and the mouseV > 150 and the mouseV < 188 then
    go to frame "ltdoa959001°°°"
  else
    nothing
  end if
end jump